home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / comm / fido / UnpackNL.lha / UnPackNL.rexx
OS/2 REXX Batch file  |  1996-05-04  |  892b  |  57 lines
  1. /*  Nodelist-Update.rexx
  2.     by Rene Laederach, 2:301/133@fidonet
  3.  
  4.     mussi@snoop.alphanet.ch
  5.  
  6.     Uses TrapList, automatically unpack your nodelist
  7.  
  8.     For users of SkyTick
  9.  
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. unlha = "lha x "||filename
  15. unzip = "unzip "||filename
  16. unarc = "arc -e"||filename
  17.  
  18. ARG filename .
  19.  
  20. IF ~EXISTS(filename) THEN DO
  21.     SAY "The file "||filename||" does not exist."
  22.     EXIT 5
  23.     END
  24.  
  25.  
  26. extension = translate(right(filename, 4) , xrange('a','z'), xrange('A','Z'))
  27.  
  28. say extension
  29.  
  30. expack = right(left(extension, 2),1)
  31.  
  32. if expack=="a" THEN DO
  33.     upackcmd = "c:arc -e "||filename
  34.     END
  35.  
  36. if expack=="l" THEN DO
  37.    upackcmd = "c:lha x "||filename
  38.    END
  39.  
  40. if expack=="z" THEN DO
  41.    upackcmd = "c:unzip "||filename
  42.    END
  43.  
  44. SAY upackcmd
  45.  
  46. PRAGMA(DIRECTORY,"nodelist:")
  47.  
  48. say pragma(directory)
  49.  
  50. cpack = GETCLIP(upackcmd)
  51.  
  52. ADDRESS command upackcmd
  53.  
  54. ADDRESS COMMAND "ums:bin/TrapList"
  55.  
  56. EXIT 0
  57.